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; 18 Big jis 
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$ 16 3918 1 !e 
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3 19 07'9 1 Ie 

3 0 0620 1 !* 

5 1 0021 1 i? 

; $f 0098 | is 
i 0024 1 ie 
3 5 0025 1 !* 

3 26 00 $ 1 !e 

: si 00 1 !e 

3 8 0028 1 

; 3 0029 } 

; : 6 : 1 lee 
3 § at) 1! FA 
3 0035 1! 

3 4 it 1! AB 
3 5 0035 1! 

3 0036 1! 

; 7 5 44 % 

$ 8 0038 1! 

3 9 0039 1! 
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3 44 ne: 1! AU 
: 45 045 1! 

; 46 B06 1! #0 
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3 54 054 1! I- 
: 22 055 1 !-<- 
3 6 056 1 
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LE ‘EDTSGETXLATE = Handles the nokeypad XLATE command’ 
LE EDTSGETXLATE ( ! nokeypad nare command 
pOEwT = 'v04-000' 1 Fi 
= 
N 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ry IN eee WITH TH OF SUCH Tht AND -s THE 


TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGI 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


ITHOUT NOTICE 
TAL EQUIPMENT 
IBILITY FOR THE USE OR RELIABILITY OF ITS 
H IS NOT SUPPLIED BY DIGITAL. 


See RRR RAE AAA AHA AAA AAA EAHA eKKKKKkeKkeeeeKeeeenh 
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CILITY: EDT == The DEC Standard Editor 
STRACT: 


Handles the nokeypad XLATE command by setting up descriptor 
and passing string to user supplied XLATE. tring 

returned from XLATE is placed in the command buffer 

for execution. 


VIRONMENT: Runs on Vax/Vms 
THOR: Shelly T. Solomon, CREATION DATE: 12-Jul-1982 
DIFIED BY: 
oi Original. STS 14-Aug-1982 
$ Return status of 1 rather that success status. ts Vor Aug~ 1962 
Save command buffer and allocate our own. STS 25-Aug-198 
4 = Unpack descriptor correctly. STS 15-Oct-1982 
5 - Don't forget to deallocate heap storage. JBS 14-Jun-1983 
688 - Don't try to execute a O-length returned string 
07 = Don't print status Just 


iss- 
ASTE 


e: GETXLATE.832 Edit: JBS1007 
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JBS 14-Jun-1983 
because no returned string. JBS 17-Jun-1983 
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E XLATE EDTS 
vet-bbo Decl 
: 6 
3 i . 
3 64 
; ¢ 
| # i 
ao 
: 720 o 
3 71 508 
; Le: 509 
SaEP 510 
a: a1 
3 7 §21§ 
; 7 0514 
; 0515 
; 7? 0516 
3; & 0651 
3 4 O68 
; BS 68 
; =—B4 0684 
3; 85 0685 
; 86 0686 
eo ae 
; 0689 
;s 0690 
2 | 0691 
; 8 0698 
s 0694 
s 9 95 
; | «96 696 
; «97 0697 
; 698 0698 
; «99 0699 


GETXLATE = Handles the nokeypad 
arations 
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RSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM’; 


FORWARD ROUTINE 
EDTSS$GET_XLATE; 


LINKAGES 


LINKAGE 
IOCALL = CALL (REGISTER = 1); 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ'; 
REQUIRE "EDTSRC:SYSSYM'; 


| MACROS: 

NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 
in the routine 


1986 93:38:48 


XLATE comma Ib-se SRCIGETXLATE. 832; egee i 
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EDTSGETXLATE SGETXLATE = Handles the nokeypad XLATE comma 16-Sep-1984 00:30:3 VAX-11 Bliss-32 V4.0-74 Page 3 
rte SSGETXLATE - nokeypad XLATE Toanend 1o-geP =} 38 99:39:79 NI KSUMCMARTERSCEOT Sac SGETXLATE.B3204° (3) 
01 ZSBTTL ‘EDTSSGETXLATE = nokeypad XLATE command’ 
GLOBAL ROUTINE EDTSSGET_XLATE ( ! Nokeypad XLATE command 
STRING, ' Address of etden to be XLATEd 
LENGTH ! Length of that string 


+e 
FUNCTIONAL DESCRIPTION: 


This is the routine called to handle the nokeypad XLATE command 
It sets up 8 descriptor with the passed string and calls the 


EDTSGET 
EDTSS$GE 
7 700 4 : 
2% 701 «#1 - 
5 Ff 7 ¢ 1 : 
: 104 7 1 : 
: 108 ros | 
H 1097 7 : 1 : 
; 103 7 7% ° 
; 109 A 1! > 
3 «330 709 171! : 
; (111 710 1! : 
3 \\¢ i. 2S $ 
s 11 at 1! user Supp ed XLATE. The returned string is placed in the ‘ 
3 113 ar ! command buffer to be processed. ' ‘ 
; 118 0715 1 ! FORMAL PARAMETERS: : 
. 3 0716 1! : 
; #118 0717 1! STRING The string following the XLATE keyword to be passed to : 
; 9 0718 1! the XLATE routine. : 
; 120 0719 1! : 
3 te o550 1! LENGTH Length of above string : 
, 4% ¢ 0721 1! 3 
4% 07 ¢ 1 ! IMPLICIT INPUTS: 3 
; 124 07 1! : 
; : ? 4 : ' EDTSSA_CMD_BUF address of the command buffer : 
; : i of $ : EDTSSA_CMD_END address of the command buffer end : 
; 1? 0728 1 ! IMPLICIT OUTPUTS: 3 
: 130 3494 1! 3 
; 13) 0730 1! NONE : 
ss g 0731 1! 3 
; is O7 36 1 ! COMPLETION STATUS: : 
3 134 Ofss 3! : 
. oo 0734 1! 1 = OK, 0 = error in command; message printed 3 
; 136 0735 1! 3 
3s VS" 0736 1 ! SIDE EFFECTS: H 
; in 0737 1! : 
; 139 0738 1! Adds commands into the command buffer : 
: 140 0739 1! : 
3: (141 0740 1 !-- 3 
3 166 0741 7 : 
; «(14 1544 BEGIN 3 
3 144 Bre : 
3; «6145 744 exreot ROUTINE : 
; 146 0745 EDTSSCHM_PAREXE, ! Parse and execute a command : 
3; (147 B7%6 EDTSSMSG_BELL, ' Qutput a message with bell : 
3 4148 074 EDTSSALO_HEAP, ' Allocate heap storage : 
3 «149 0748 EDTSSDEA_HEAP : NOVALUE, ' Deallocate heap storage 3 
; 139 teh STRSFREET_DX; ' Free a string : 
; 136 opa4 exreay, : : 
s 43 P36 EDTSSA_XLATE_ROUT, ! Address of XLATE routine : 
> 154 75 EDTS$G_XLATE-ENV, ' Environment address for XLATE | ; 
; 155 754 EDTSST_CMD_BUF, ' Command buffer : 
: 156 755 EDT$$A_CMD~BUF , \._§ Current location in command buffer | ; 
; 157 756 EDTSSA_CMD_END; 4 ! End of command buffer | : 
| 
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MESSAGES (CINVSUBCOM, INSMEM, COMEXHXLA, PASSTATUS)); 


‘SAVE CMD_END, 


CMD"DESC : BLOCK C8, BYTE | 
STATUS; | 
K_DTYPE_T; 
K_CLASS_D; 


CMD_DESC DSC$B_pTYPE] = DSC$ 

CMD-DESC [DSC$B-CLASS) = Dscs 

CMD-DESC CDSCS$A-POINTER) = 0; 

CMD “DESC CDOSC$W LENGTH] = 0; ; 

STRING_DESC (CMD_DESC, LENGTH, .STRING); ' build descriptor 


The following call to the XLATE routine is a general routine call 
using the Linkage defined as IOCALL. A call is beine made to the 
routine whose address is contained in the variable EDTS$$A_XLATE_ROUT. 
The comtents of the variable EDT$$G_XLATE_ENV is first put into 
register 1 for the call. (This is done to fill the requirenent of 
callable EDT where the user can specify an XLATE routine and some 
high-level languages require an environment address to be passed in 
register 1.) The penetee poreneter in the List is the actual 
parameter passed to the XLATE routine. 


STATUS = IOCALL (.EDTSSA_XLATE_ROUT, .EDTSS$G_XLATE_ENV, CMD_DESC); 
If the returned status is bad print the indicated message. 
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8 IF ( NOT .STATUS) 
8 THEN 

91 9 GIN 

36 9 EDTSSMSG_BELL (.STATUS); 

g 9 STRSFREET_DX (CMD_DESC); 

94 9 RETURN (0); 

95 3 

96 

97 ie 

98 !' Returned status is good. If there is a command string returned 
199 ' execute it. 
1 = 

01 

4 1 IF (.CMD_DESC CDSCS$W_LENGTH] GTRU 0) 
0 308 THEN 
04 8C BEGIN 

05 804 '¢ 
206 805 ! Make sure there's enough room in the command buffer for the 

07 S08 ! resulting command. 

08 80 fe 
09 808 
10 809 IF (.CMD_DESC CDSC$W_LENGTH] GTRU 256) 

11 0810 THEN 

\ 0811 BEGIN 

1 baig EDTSSMSG_BELL (EDTS_COMEXHXLA); 

214 081 STRSFREET_DX (CMD_DESC); 
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EDTSGETXLATE = Handles the nokeypad XLATE comma 16-56 -1984 00:30: VAX-11 Bliss-32 V4.0-74 P | 
EDTSSBETKCATE = nokeypad XLATE tSamend 1 ~3007 1382 99:39:79 DL EKSVMEMASTER EDT SRCIGETXLATE.B3204 7" (33. 
14 RETURN (0); | 
1? END; 
ae | 
19 Copy the returned string into 256 bytes of heap storage. 
3 1 IF EDTSSALO_HEAP (ZREF (256), NEW_CMD_BUF) ! 
4 § Patna (.CMD_DESC COSCSW_LENGTH], .CMD_DESC CDSCSA_POINTER], .NEW_CMD_BUF) 
Bes BEGIN | | 
$ 4 EDTSSMSG_BELL (EDTS_INSMEM); 
08 4 RETURN (0); 
0828 3 
ed . 
0831 Save the current command buffer pointers. 
0838 ; SAVE_CMD_BUF = .EDTS$$A_CMD_BUF; 
te < SAVE_CMD_END = .EDTSSA_CMD_END; 
0836 Point to the new command buffer. | 
0838 3 EDTSS$A_CMD_BUF = .NEW_CMD BUF; | 
0839 i EDTS$A_CMD-END = .CMD-DESC COSC$W_LENGTH] + .EDT$SS$A_CMD_BUF; 
0841 3 Now parse and execute the XLATE-returned string. | 
ages 3 STATUS = EDTSSCHM_PAREXE (1); 
Baez 5 Restore the command buffer. 
0847 ; EDTSSA_CMD_BUF = .SAVE_CMD_BUF; 
0848 : EDTS$A_CMD-END = .SAVE_CMD~END; 
Oats 3 Free XLATE‘s command buffer. 
0852 : EDTS$$DEA_HEAP (ZREF (256), NEW_CMD_BUF); 
085 § END; 
Bs 
0856 We no longer need the returned string. | 
O88 STRSFREE1_DX (CMD_DESC); | 
0859 RETURN (1); | 
0860 1 ND; ! of routine EDTS$GET_XLATE 


-TITLE EDTSGETXLATE EDTSGETXLATE - Handles the nokeypa 
d XLATE comma 
-IDENT \V04-000\ | 


.EXTRN EDTSSCHM_PAREXE | 
-EXTRN EDTSS$MSG-BELL, EDTSSALO_HEAP | 
SEXTRN EDTSSDEA“HEAP, STRSFREET_DX 

SEXTRN EDTS$A_XCATE_ROUT 


—_-------------- SS 


FS 


<< 


ee a | 


ee ee ee a a 
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EDTSGETXLATE EDTSGETXLATE = Handles the nokeypad XLATE comma hese -1984 00:30:3 VAX-11 Bliss-32 V4.0-74 Pa 6) 
tee EO TSSEET RCA E - nokeypad XLATE Tommend eee 1 99:39:79 NIEKSUMGMASTERSCEDT SRCSGETXLATE.832049° (3). 

-EXTRN EDT$$G_XLATE_ENV | : 

SEXTRN EDT$ST-CMD_BOF, EDTS$$SA_CMD_BU : 

*EXTRN EDISSA CMD ~END EDITS IRVSUBCOM | ; 

-EXTRN EDTS_INSMEM, EDTS$_COMEXHXLA | : 

“EXTRN EDTSZPASSTATUS, STRSCOPY_R | ; 

.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 ; 

07FC 00000 -ENTRY EDTSSGET_XLATE, Save R2,R3,R4,R5,RO,R7/RB,~ ; 0702. ; 

A 000000006 00 9€ 9002 MOVAB STRSFREE1_DX, R10 : ; 

90 00 06 09 9 00 MOVAB EDTS$$MSG_BELL ; ; 

8 0 G E 19 MOVAB EDTS$$A_CAD_END, R8 : ; 

3f 900000008 93 SERN GHLEMGR EMBL : 3 

08 AE 02060000 8F Dd 900 1 MOVL  #34471936, CMD_DESC + 0770 ; 

OC AE D4 00029 CLRL  CMD_DESC+4 + 0769 ; 

04 AC DD 0002C PUSHL STRING : 0771 : 

08 AC 9F 0002F PUSHAB LENGTH 3 é 

10 AE 9F 000 é PUSHAB CMD_DESC : ; 

000000006 00 03 FB 0003 CALLS #3, STRSCOPY_R : ; 

50 000000006 00 bo 9005¢ HOVE EDISSA XLATE-ROUT, RO ; 0783 : 

jj 00000006 BP Pe gages RRIE STEER Suarecnw, : : 

56 50 DO 90050 MOVL RO. STATUS : ; 

04 56 £8 0005 BLBS STATUS, 1$ : 0788 : 

at: a ee baa os) 

08 AE 8 00034 1$: Ist CMD _DESC : 0801 ; 

0100 BF 08 AF 81 O005F CPW MD_DESC, #256 ; 0809 ; 

000000006 8F DD 00067 PUSHL  W#EDTS_COMEXHXLA > 0812 ; 

69 01 FB 0006D 2$: CALLS #1, EDTS$SMSG_BELL : : 

08 AE OF 90070 PUSHAB CMD_D : 0813 : 

6A ot FB 90075 CALLS #1, “STRSFREE1_DX po 

04 AE OF $0078 38: PUSHAB NEW_CMD_BUF : 0821 F 

ee i Oe Rs pie Stoo 8 

000000006 00 08 FB 0084 CALLS ne, EDTSSALO_HEAP : 

04 BE Oc BE 08 AE 2 O08 NOVCS CMD _DESC, @CMD_DESC+4, @NEW_CMD_BUF ; 0823 : 

000000006 rt DD 00097 4$: PUSHL #EDTS_INSMEM > 0826 : 

69 01 FB 909 CALLS al. EDTSS$MSG_BELL Fass 3 

53 67 00 OOAg 5$: MOVL § EDTSSA_CMD_BUF, SAVE_CMD_BUF : 0833 ; 

52 68 D6 OOA MOVL § EDTSSA™CMD~END, SAVE~CMD~END + 0834 ; 

6 04 AE p O0A8 MOVL § NEW_CMO_BUF, EDTS$A_CMD_GUF > 0838 ; 

50 08 ac C OOOAC MOVZWL CMD7DESC, R : 0839 ; 

68 50 t C1 00080 ADDL3 EDTSS$A_CMD_BUF, RO, EDTSSA_CMD_END : | : 

1 DD 0084 PUSHL #1 + 0843 : 

000000006 90 ? i 086 CALLS ". EDTSSCHM_PAREXE | ; 

89 § BO dooce MOVL  SAVE_CMD_BUF, EDTS$A_CMD_BUF $0847 | : 
| 


ee ee ee ee ee ee ee ee eee 


ERTOSE IMLATE 


GETXLATE = nokeypad XLATE command 


; Routine Size: 230 bytes, Routine Base: 


368 


-EDTSCODE + 0000 


0861 1 
0862 1 !<BLF/PAGE> 


DISGETXLATE = Handles the nokeypad XLATE 1b-s¢ Sep-1 
DISS 4. conn tT-is6-1 


68 52 00 C 
4 AE OF C 
046 AE 0109 8F 3C¢ C 
4 Ag F CF 
000000006 00 02 FB 3 
08 at oF D9 6$: 
gh 8 fe oc 
ee: 
50 D4 Goes 7$: 
04 OO0E 


PUSH NEY TMD_BUF 
MOVZWL #256, 4TSP) 

PUSHAB 4(SP5 

CALLS #2, EDTSSDEA_HEAP 
PUSHAB CMD_DESC 

CALLS #1, STRSFREE1_DXx 
MOVL #1. RO 

RET 

CLRL = RO 


Bho 93:30:78 WaekdwBAASPeRcceoT sacScermuate.e320%%° c3 
MOV. SAVE, CHDAEND, EDTSSA_CMD_END 


7 om om om om A OA OR A OO ee A AR RRR AIA IPIA IA IAA IP IR IPI OP PP I PIPL) ed as a ot dd = 8 8 tet 
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EQS IALATE 


: 366 ORs ! END ! of module EDTSGETXLATE 

; e? 5 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

: _EDTSCODE 230 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 

Bee Sash cps teres ta aa. ee Na Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28: (EDT. SRCJEDT.L32;1_ 377 2 0 40 00:00.2 

; ~$255$DUA28: (EDT. SRCIPSECTS. aie 2 1 50 7 00:00.1 

3 ~$255$DUA28: SYSLIBJSTARLET.L32:1 9776 6 0 581 00:04.0 

3 COMMAND QUALIFIERS 

; Pde ee POUR gE TEAR PT ONE LE DP TRAL RACES OME, 5 OSE TRATE SOR SHER SEES TRLATE MSRC$:GETXLATE .B32/UPDATE=(ENH$:GETX 


; Size: 230 code + 0 data bytes 
un Time 00:20.3 


; pe tee: a 
3; Lines/CPU Min: $333 

3; Lexemes/CPU-Min: 7937 

; Memory Used: 111 pages 
; Compication Complete 
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